﻿Namespace DotNetNuke.Modules.ActiveForums
    Public Class ProfileBase
        Inherits SettingsBase
        Private _UID As Integer = -1
        Private _userProfile As UserProfileInfo
        Public Property UserProfile() As UserProfileInfo
            Get
                Return _userProfile
            End Get
            Set(ByVal value As UserProfileInfo)
                _userProfile = value
            End Set
        End Property
        Public ReadOnly Property UID() As Integer
            Get
                If Not Request.Params("UID") Is Nothing Then
                    If IsNumeric(Request.Params("UID")) Then
                        _UID = CInt(Request.Params("UID"))
                    End If
                Else
                    _UID = UserId
                End If
                Return _UID
            End Get
        End Property

    End Class
End Namespace
